﻿Imports System.Data.SqlClient, System.Globalization

Public Class NivelAD
    Public Function fBuscarNiveles() As DataSet
        Dim dsListaNiveles As New DataSet
        Dim da As SqlClient.SqlDataAdapter
        'Instanciamos un objeto de la clase ConexionBD
        Dim cnx As New ConexionBD
        Try
            'Se crea la sentencia SQL que en este caso es un STORE PROCEDURE 
            Dim strSql As String = "exec sp_BUSCAR_NIVELES"
            'Creamos un conexión a la BD"
            Dim cnx_1 As SqlConnection
            cnx_1 = cnx.obtenerCnx()
            da = New SqlClient.SqlDataAdapter(strSql, cnx_1)
            da.SelectCommand.CommandType = CommandType.Text
            da.Fill(dsListaNiveles)
            cnx_1.Close()
            Return dsListaNiveles
        Catch ex As Exception
            MsgBox("Se presentaron problemas al cargar los Niveles", MsgBoxStyle.Information, "Aviso")
            Return Nothing
        End Try
    End Function

    Public Function fBuscarNiveles1(ByVal pNivelNO As String) As DataSet
        Dim dsListaNiveles As New DataSet
        Dim da As SqlClient.SqlDataAdapter
        'Instanciamos un objeto de la clase ConexionBD
        Dim cnx As New ConexionBD
        Try
            'Se crea la sentencia SQL que en este caso es un STORE PROCEDURE 
            Dim strSql As String = "exec sp_BUSCAR_NIVELES1'" & pNivelNO & "' "
            'Creamos un conexión a la BD"
            Dim cnx_1 As SqlConnection
            cnx_1 = cnx.obtenerCnx()
            da = New SqlClient.SqlDataAdapter(strSql, cnx_1)
            da.SelectCommand.CommandType = CommandType.Text
            da.Fill(dsListaNiveles)
            cnx_1.Close()
            Return dsListaNiveles
        Catch ex As Exception
            MsgBox("Se presentaron problemas al cargar los Niveles", MsgBoxStyle.Information, "Aviso")
            Return Nothing
        End Try
    End Function
End Class
